#   Copyright 2013 Stacy Doss stacy.doss@gmail.com
#
#   Licensed under the Apache License, Version 2.0 (the "License");
#   you may not use this file except in compliance with the License.
#   You may obtain a copy of the License at
#
#       http://www.apache.org/licenses/LICENSE-2.0
#
#   Unless required by applicable law or agreed to in writing, software
#   distributed under the License is distributed on an "AS IS" BASIS,
#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#   See the License for the specific language governing permissions and
#   limitations under the License.

package DIME::Dlg::Search;

sub new {

	my $class  = shift;
	my $parent = shift;
		
	my $T = {
        parent => $parent,
	};
		
	bless $T, $class;

    $T->frame();

	return $T;
}


sub frame {
    my $self = shift;    
    
    $self->{dialog} = $self->{parent}{MW}->DialogBox(-title => "Search",
                									 -default_button => 'Ok',
									                 -buttons => ["Ok", "Cancel"]);
	
	my $fb = $self->{dialog}->add('Frame')->pack(-side => 'top');
	
	$fb->Label(-text => 'Regexp')->pack(-side => 'left');
	
	$fb->Entry(-textvariable => \$self->{tk}{opts}{searchvalue}{str},
			)->pack(-side => 'left');

	my $fkv = $self->{dialog}->add('Frame')->pack(-side => 'top');
	$fkv->Checkbutton(-variable => \$self->{tk}{opts}{searchvalue}{key},
					 -text => 'Key',
					 )->pack(-side => 'left');
	$fkv->Checkbutton(-variable => \$self->{tk}{opts}{searchvalue}{val},
					 -text => 'Value',
					 )->pack(-side => 'left');
	my $fcr = $self->{dialog}->add('Frame')->pack(-side => 'top');
	$fcr->Checkbutton(-variable => \$self->{tk}{opts}{searchvalue}{case},
					 -text => 'Case Sensitive',
					 )->pack(-side => 'left');
	$fcr->Checkbutton(-variable => \$self->{tk}{opts}{searchvalue}{root},
					 -text => 'From Root',
					 )->pack(-side => 'left');
	
	return $self->{dialog};
}

1;

__END__